home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
EARCD
/
comm
/
mail
/
YamSendmail.lha
/
sendmail
Wrap
Text File
|
1996-11-10
|
1KB
|
44 lines
/* sendmail - send email from TIN using YAM (Thanks Marcel :)
partially edited from sendamail.rexx by blitter@planetx.lanz.com
Installation:
Copy sendmail (this file :) to c:sendmail
Protect c:sendmail +s
assign uucp: sys: (or wherever partition your c: is at)
Bugs: Only one so far, you get the newsreader sig and the Yam sig
in the message. The might be a way to disable reading of
the Yam sig, but I couldn't find it.
Addition: 10-nov-1996, works with AwewII2.1. Use Auto-Sendmail config in
AwebII.
*/
tmpfile = 'T:SendAMail.tmp'
IF ~SHOW('Ports','YAM') THEN DO
ADDRESS 'COMMAND'
'Run YAM:YAM NOCHECK HIDE'
'SYS:RexxC/WaitForPort YAM'
END
IF SHOW('Ports','YAM') THEN DO
IF OPEN(out,tmpfile,'write') THEN DO
line = READLN(STDIN); PARSE VAR line 'To: 'rcpt
line = READLN(STDIN); PARSE VAR line 'Subject: 'subj
/* CALL READLN(STDIN)*/
/* CALL READLN(STDIN)*/
DO WHILE ~EOF(STDIN)
CALL WRITELN(out,READLN(STDIN))
END
CALL CLOSE(out)
ADDRESS 'YAM'
rcpt = WORD(rcpt,1) /* added for prob with Alias in mailto (dk)*/
WriteMailTo rcpt
/* 'WriteSubject 'subj */
'WriteSubject "'subj'"'
WriteLetter tmpfile
WriteSend
ADDRESS COMMAND 'Delete >NIL: 'tmpfile
END
END